home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2004 June / CD Rom Data Haziran 2004.iso / Media / Elect.dcr / Script_2_script_Resim_Frame.ls < prev    next >
Encoding:
Text File  |  2004-05-21  |  343 b   |  15 lines
  1. global Resimler, Resim
  2.  
  3. on beginSprite
  4.   Resimler = baFileList(the moviePath & "Electronica\Resimler\", "*.jpg")
  5.   Resim = 1
  6.   sprite(8).visible = 0
  7.   sprite(9).visible = 1
  8.   importFileInto(member("Resim"), the moviePath & "Electronica\Resimler\" & Resimler[Resim])
  9.   member(1, "Resim").name = "Resim"
  10. end
  11.  
  12. on exitFrame me
  13.   go(the frame)
  14. end
  15.